home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CU Amiga Super CD-ROM 17
/
CU Amiga Magazine's Super CD-ROM 17 (1997)(EMAP Images)(GB)[!][issue 1997-12].iso
/
CUCD
/
Programming
/
DiceSource
/
src
/
dicehelp
/
DICEHelp_Box.ttx
< prev
next >
Wrap
Text File
|
1995-12-24
|
2KB
|
62 lines
/*
** $Id: DICEHelp_Box.ttx,v 30.0 1994/06/10 18:05:49 dice Exp $
**
** DICEHelp help system. Script for Oxxi TurboText (tm).
**
** Rexx script modeled after version by David Joiner
*/
OPTIONS RESULTS
'RequestStr prompt "Enter search string "'
if (RC > 0) then do
exit
end
searchline = RESULT
hostname = address() /* Source TTX window */
portname = 'DICEHELP' /* DICEHelp's port name */
tempname = 't:DICEHelp.temp' /* Temporary file for passing clips */
if ~show('p',portname) then do
address COMMAND 'RUN >NIL: <NIL: DICEHelp REXXSTARTUP'
do i = 1 to 6
if ~show('p',portname) then do
address COMMAND 'wait 1'
end
end
if ~show('p',portname) then do
'SetStatusBar "DICEHelp program not found!"'
exit
end
end
address value portname
T searchline /* Search for searchline, return <T>empfile */
if RC=0 then do
refline = RESULT
refstring = SUBWORD( refline, 2 )
address value hostname /* Back to TTX */
if WORD( refline, 1 ) = "E" then do
'SetStatusBar' refstring
exit
end
OPENDOC NAME refstring
newport = RESULT /* get the new editor's port name */
if RC > 0 then do /* if not there, then error */
'SetStatusBar' "Error opening" refstring
exit
end
address value newport /* Address the new window */
SETREADONLY
exit
end
else do
address value hostname
'SetStatusBar' "Error code" RC "DICEHelp failed!"
end